home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / mus / edit / OctaScripts.lha / scripts / MIDIpreset+1.omed < prev    next >
Text File  |  1998-04-15  |  311b  |  16 lines
  1. /************************************************************
  2.  
  3.                    OctaMED ARexx Script
  4.  
  5.        Increases MIDI preset on current instrument
  6.  
  7. ************************************************************/
  8.  
  9. IN_GETMIDIPRESET VAR preset
  10.  
  11. IF (preset<128) THEN DO
  12.    IN_SETMIDIPRESET preset+1
  13. END
  14.  
  15. EXIT
  16.